﻿Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Popup

Namespace IControls
    Public Class CustomPopupSearchLookUpEditForm
        Inherits PopupSearchLookUpEditForm
        Public Sub New(ByVal edit As SearchLookUpEdit)
            MyBase.New(edit)
        End Sub

        Protected Overrides Sub UpdateDisplayFilter(ByVal displayFilter As String)
            Dim args As New DisplayFilterEventArgs(displayFilter)
            Properties.RaiseUpdateDisplayFilter(args)
            MyBase.UpdateDisplayFilter(args.FilterText)
        End Sub

        Public Shadows ReadOnly Property Properties() As RepositoryItemISearchLookUpEdit
            Get
                Return TryCast(MyBase.Properties, RepositoryItemISearchLookUpEdit)
            End Get
        End Property
    End Class
End Namespace
